home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / com / point_upload < prev    next >
Encoding:
Text File  |  1995-05-05  |  2.0 KB  |  112 lines
  1. ;
  2. ;    Scriptfile zum Upload der neuen Nachrichten im Z-Netz-Format
  3. ;    $VER: 1.11 / 29.01.1995
  4. ;
  5. ;    Das Script sollte so eingebunden werden, dass es ueber Flags
  6. ;    auf die Befehle EXTERN, DISK UPLOAD und MENU zugreifen kann !
  7. ;
  8. ;    Aufruf durch User : POINT UPLOAD
  9. ;
  10. ;    Das Script sollte so eingebunden werden, dass es ueber Flags
  11. ;    auf die folgende Befehle zugreifen kann !
  12. ;
  13. ;    CHECK FILE
  14. ;    DISK UPLOAD
  15. ;    ECHO
  16. ;    EOD
  17. ;    EXTERN
  18. ;    GOTO
  19. ;    IF
  20. ;    MENU
  21. ;    ON BREAK
  22. ;    ON ERROR
  23. ;    POINT GETFILE
  24. ;    WAIT
  25. ;
  26. ;    Folgende Amiga-Dos-Befehle werden benutzt :
  27. ;
  28. ;    DELETE
  29. ;
  30. ;    Konstanten :
  31. ;
  32. TMPDIR  = "mbmsg:point/'{port}'/"    ; Dir fuer Message und Tmp-Files
  33. PCKFILE = "caller.lha"            ; Name des gepackten Files
  34. MSGFILE = "PUFFER"            ; Name des entpackten Msg-Files
  35. UPACKER  = "lha -P-1 x ""'TMPDIR''PCKFILE'"" ""'TMPDIR'"" ""'MSGFILE'"""
  36.                     ; Entpacken
  37. ;
  38. ;    Bei Fehler oder Abbruch verzweigen / Texte laden
  39. ;
  40.  
  41. _on error ERROR                         ; Beim Fehler ...
  42.  
  43. LANG={DEFLANGUAGE}
  44. _check file "mbbatch:com/'{ALANGUAGE}'/point_upload.bat" GETTEXT
  45. LANG={ALANGUAGE}
  46. GETTEXT:
  47. _disk execute/keep "mbbatch:com/'LANG'/point_upload.bat"
  48.  
  49. _on break ABORT                         ; Beim Abbruch ...
  50.  
  51. ;
  52. ;    Starttext ausgeben
  53. ;
  54.  
  55. _echo STARTTEXT
  56.  
  57. ;
  58. ;    Alte Files loeschen, Upload starten
  59. ;
  60. RETRY_UPLOAD:
  61. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?"
  62. _extern/q rename "'TMPDIR''PCKFILE'" "'TMPDIR''PCKFILE''{CALLNR}'"
  63.  
  64. _menu MENUTEXT -
  65.  KEY_UPLOAD UPLOAD -
  66.  KEY_ABORT ABORT
  67.  
  68. UPLOAD:
  69. _echo UPLOADTEXT
  70. _on error ERROR_UPLOAD
  71. _disk upload "'TMPDIR''PCKFILE'"
  72. _on error ERROR
  73.  
  74. ;
  75. ;       File entpacken
  76. ;
  77.  
  78. _echo/nolf UNPACKTEXT
  79. _extern/q 'UPACKER'
  80. _echo UNPACKENDTEXT
  81.  
  82. ;
  83. ;       Nachrichten importieren
  84. ;
  85.  
  86. _echo/nolf IMPORTTEXT
  87. _point getfile "'TMPDIR''MSGFILE'"
  88. _echo IMPORTENDTEXT
  89. _goto END
  90.  
  91. ;
  92. ;       Wenn Fehler beim Upload ...
  93. ;
  94. ERROR_UPLOAD:
  95. _menu RETRYTEXT -
  96.  KEY_RETRY RETRY_UPLOAD -
  97.  KEY_BREAK ABORT
  98.  
  99. ;
  100. ;       Ende
  101. ;
  102. ABORT:
  103. _echo ABORTTEXT
  104. _goto END
  105.  
  106. ERROR:
  107. _echo ERRORTEXT
  108.  
  109. END:
  110. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?"
  111. _eod
  112.